home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Information Management / Wingz / SDScript / Script03 (.txt) < prev    next >
Wingz Script  |  1989-06-07  |  1KB  |  43 lines
  1. WNGZWZSC01b1
  2. Demo03
  3.     Rows&Cols
  4. SDOpen
  5. DoSound
  6. Segway
  7. the_computer
  8. define n
  9. call sd:SDOpen("Demo03",1)
  10. call sd:DoSound("Rows&Cols")
  11. wait for sd:Segway seconds
  12. hide fields
  13. column width .5 inch
  14. select range B3..C3
  15. column width 2.25 inch
  16. select range D3..F3
  17. column width .7 inch
  18. select range A4
  19. row height .5 inch
  20. select range A5..A13
  21. row height 15 points
  22. select range A14..A19
  23. row height 9 points
  24. unselect
  25. wait for sd:Segway seconds
  26. select range a1..h30
  27. column width 1 inch
  28. row height 12 points
  29. unselect
  30. show notes
  31. wait for (sd:Segway * 1.5) seconds
  32. hide notes
  33. for n = 1 to 50
  34.     select range makecell(rand()*8,rand()*25)
  35.     if sd:the_computer <> 2
  36.         fill bg rgb(rand()*255,rand()*255,rand()*255)
  37.         fill fg rgb(rand()*255,rand()*255,rand()*255)
  38.     end if
  39.     fill pattern rand()*38
  40. end for
  41. wait for sd:Segway seconds
  42. close now
  43.